home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / incdtgm.gf < prev    next >
Encoding:
Text File  |  1994-02-17  |  334 b   |  21 lines
  1. function incdtgm(dtgm,inc)
  2. *
  3. *  increment a monthdtg by inc months 
  4. *  RESTRICTIONS!!  
  5. *  (1)  inc < one year
  6. *
  7.   moname='JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC'
  8.  
  9.   iyr=substr(dtgm,1,2)*1
  10.   imo=substr(dtgm,3,2)*1
  11.  
  12.   imo=imo+inc
  13.   say 'new imo = 'imo
  14.  
  15.   if(imo>=13)
  16.     imo=imo-12
  17.     iyr=iyr+1
  18.   endif
  19.  
  20. return (iyr*100+imo)
  21.